home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / demomod2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  411 b   |  28 lines
  1. module DemoMod2; { Alternative method }
  2.  
  3. export Catch22 = (FooType, SetFoo, GetFoo);
  4.  
  5. type
  6.   FooType = Integer;
  7.  
  8. procedure SetFoo (f : FooType);
  9. function  GetFoo : FooType;
  10.  
  11. end; { note: this end is required here, even if the
  12.        module-block below would be empty. }
  13.  
  14. var
  15.   Foo : FooType;
  16.  
  17. procedure SetFoo;
  18. begin
  19.   Foo := f
  20. end;
  21.  
  22. function GetFoo;
  23. begin
  24.   GetFoo := Foo
  25. end;
  26.  
  27. end.
  28.